﻿#Region "IMPORTS"
Imports DAO
#End Region

Public Class FormaPagamento
    Inherits Modelo
    Implements IModelo

#Region "ATRIBUTOS"

    Private _formaPagamentoId As Integer

    Private _descricao As String

#End Region

#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.New()
        Me._formaPagamentoId = id
    End Sub

#End Region

#Region "PROPRIEDADES"

    Public Overridable Property FormaPagamentoId() As Integer
        Get
            Return Me._formaPagamentoId
        End Get
        Set(ByVal value As Integer)
            _formaPagamentoId = value
        End Set
    End Property

    Public Overridable Property Descricao() As String
        Get
            Return Me._descricao
        End Get
        Set(ByVal value As String)
            Me._descricao = value
        End Set
    End Property

#End Region

#Region "METODOS OVERRIDES"

    Public Overrides Function ToString() As String
        Return Me.Descricao
    End Function

#End Region
End Class